unit JATUIF_Component_MenuBar;

{$mode objfpc}{$H+}

interface

uses
    Classes, SysUtils, Video, JATUIF_Component, JATUIF_Driver_Screen, JATUIF_Component_MenuButton;

Type

    { TMenuBar }

    TMenuBar = class(TComponent)
      Protected
        Procedure _OnKeyPress(Key:Char); override;
        Procedure _OnMouseEnter; override;
        Procedure _OnMouseLeave; override;
        Procedure _OnClick; override;
        Procedure _OnLoseFocus; override;
        Procedure Draw; override;
      Private
        { Private Properties & Methods }
      Public
        Constructor Create(Parent:TScreen);
        Procedure BringToFront; override;
        Procedure SendToBack; override;
        Procedure BringForward; override;
        Procedure SendBackward; override;
    end;

implementation

{ TMenuBar }

Constructor TMenuBar.Create(Parent: TScreen);
begin
     inherited Create(Parent, 1, 1, 80, 1);
end;

procedure TMenuBar.BringToFront;
begin
     //Do Nothing
end;

procedure TMenuBar.SendToBack;
begin
     //Do Nothing
end;

procedure TMenuBar.BringForward;
begin
     //Do Nothing
end;

procedure TMenuBar.SendBackward;
begin
     //Do Nothing
end;

procedure TMenuBar.Draw;
Var
   i:integer;

begin
     For i:=1 to 80 do begin
         Screen.DrawCharXY(GetTag,i,1,' ',White,White);
     end;
end;

{ Callback Events }

procedure TMenuBar._OnKeyPress(Key: Char);
begin
     inherited _OnKeyPress(Key);
end;

procedure TMenuBar._OnMouseEnter;
begin
     inherited _OnMouseEnter;
end;

procedure TMenuBar._OnMouseLeave;
begin
     inherited _OnMouseLeave;
end;

procedure TMenuBar._OnClick;
begin
     inherited _OnClick;
end;

procedure TMenuBar._OnLoseFocus;
begin
     inherited _OnLoseFocus;
end;

end.


